home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
SPACE 1
/
SPACE - Library 1 - Volume 1.iso
/
program
/
441
/
aessrc12
/
aesutrc1.s
< prev
next >
Wrap
Text File
|
1990-11-23
|
1KB
|
46 lines
;*========================================================================
;*
;* AESFAST Public Domain GEM bindings.
;*
;*========================================================================
;*************************************************************************
;*
;* AESUTRC1.S - Rectangle utilities 1 of 4.
;* Utility routines involving the standard rectangle calcs...
;*
;*************************************************************************
;-------------------------------------------------------------------------
; rc_copy
;-------------------------------------------------------------------------
_rc_copy::
.cargs #4,.psrce.l,.pdest.l
move.l .psrce(sp),a0
move.l .pdest(sp),a1
move.l (a0)+,(a1)+
move.l (a0)+,(a1)+
rts
;-------------------------------------------------------------------------
; rc_equal
;-------------------------------------------------------------------------
_rc_equal::
.cargs #4,.psrce.l,.pdest.l
move.l .psrce(sp),a0
move.l .pdest(sp),a1
moveq.l #0,d0 ; Assume not equal
cmp.l (a0)+,(a1)+
bne.s .notequal
cmp.l (a0)+,(a1)+
bne.s .notequal
moveq.l #1,d0
.notequal:
tst.w d0 ; insure CCR return matches d0.
rts